10 

.TITLE COPY256 6-20-91 


20 

.OPT OBJ 



30 

* = 

$8500 



40 CIOV = 

$E456 



50 DSKINV = 

$E453 



60 SIOV = 

$E459 



70 DOSVEC = 

$0A 



80 DOSINI = 

$0C 



90 COLDST = 

$0244 



0100 

KBDHND 

= $E420 



0110 

DISPLA 

= $E4 10 



0120 

GETCH = 

$8300 j 

POINTER KEYBD ] 

HANDLER 

0130 

OUTCH1 

= $8302 

POINTER TO DISPLA HANDLER 

0140 

CHAR = 

$02FA 



0150 

ATACHR 

= $02FB 



0160 

INBUF = 

$8400 ; 

TEMP WORK AREA 


0170 

SDRIVE 

- $8304 ; 

SOURCE DRIVE 


0180 

DDRIVE 

= $8305 ; 

DEST DRIVE 


0190 

NUMBER 

= $8306 ; 

[NUMBER OF COPIES 

0200 

FFLAG = 

$8307 ; 

FORMAT FLAG 


0210 

SECTLO 

= $8308 



0220 

SECTHI 

= $8309 



0230 

D30 1 = 

$8310 ; 

SAVED 


0240 

WRTC = 

$8312 ; 

VERIFY FLAG 


0250 

BKTEST 

= $8313 ; 

BANKING TEST 


0260 

TNUM = 

$8314 



0270 

TEMPI = 

$8315 



0280 

TEMP2 = 

$8316 



0290 

BUSCMD 

= $8317 



0300 

DENFLG 

= $8318 



0310 

SRANGE 

= $8320 



0320 

KCOUNT 

= $8323 ' 



0330 

TBUFLO 

= $00 ; 

INITIAL IO BUFFER 

0340 

TBUFHI 

= $40 



0350 

DDEVIC 

= $0300 ; 

BUS I.D. # 


0360 

DUNIT = 

$0301 ; 

DEVICE # 


0370 

DCOMND 

= $0302 ; 

BUS COMMAND 


0380 

DSTATS 

= $0303 ; 

STATUS 


0390 

DBUFLO 

= $0304 ; 

BUFFER POINTER 

LO 

0400 

DBUFHI 

= $0305 ; 

BUFFER POINTER 

HI 

0410 

DTIMLO 

= $0306 ; 

DISK TIME OUT 


0420 

DBYTLO 

= $0308 ; 

# OF BYTES LO 


0430 

DBYTHI 

= $0309 ; 

# OF BYTES HI 


0440 

DAUX1 = 

$030A ; 

SECTOR # LO 


0450 

DAUX2 = 

$030B ; 

SECTOR # HI 


0470 

;SET UP 

TITLE 



0480 

START JSR INIT 



0490 

NCOPY LDA #1 



0500 

STA 

SECTLO ; 

POINT TO FIRST 

SECTOR 

0510 

LDX 

#MESS1&255 


0520 

LDY 

#MESSl/256 


0530 

JSR 

PUTLIN ; 

COPYRIGHT 


0540 

LDX 

#MESS2&255 


0550 

LDY 

#MESS2/256 


0560 

JSR 

PUTLIN ; 

NUM OF COPIES? 


0570 

LDX 

#0 



0580 

STX 

SECTHI 



0590 

STX 

KCOUNT 



0600 

STX 

DENFLG 



0610 

LDA 

#$D1 



0620 

STA 

SRANGE 



0630 

LDA 

#2 



0640 

STA 

SRANGE+ 1 



0650 

KGET JSR GETKEY ; 

GET CHARACTER 


rtccn 

t n v 

FPATTMT 




0670 

LDA 

ATACHR 

0680 

CMP 

#’X 

0690 

BNE 

CHKD 

0700 

LDA 

D301 

0710 

STA 

$D301 

0720 

RTS 


0730 

CHKD CMP #$44 

0740 

BNE 

CHKH 

0750 

STA 

DENFLG 

0760 

JMP 

PRCH 

0770 

CHKH CMP # ’ H 

0780 

BNE 

CHKQ 

0790 

LDY 

#$72 

0800 

STY 

SRANGE 

0810 

LDY 

#1 

0820 

STY 

SRANGE+1 

0830 

JMP 

PRCH 

0840 

CHKQ CMP # ’ Q 

0850 

BNE 

CHKO 

0860 

LDY 

#$A1 

0870 

STY 

SRANGE 

0880 

LDY 

#5 

0890 

STY 

SRANGE+1 

0900 

JMP 

PRCH 

0910 

CHKO CMP #’0 

0920 

BNE 

CKDIG 

0930 

LDY 

#$41 

0940 

STY 

SRANGE 

0950 

LDY 

#$0B 

0960 

STY 

SRANGE+1 

0970 

PRCH JSR OUTCH 

0980 

JMP 

KGET 

0990 

CKDIG CMP #$30 

1000 

BCC 

KGET 

1010 

CMP 

#$3A 

1020 

BCC 

NEXTCH 

1030 

CMP 

#$9B 

1040 

BNE 

KGET 

1050 

NEXTCH STA INBUF 

1060 

JSR 

OUTCH 

1070 

INC 

KCOUNT 

1080 

CMP 

#$9B 

1090 

BNE 

KGET 

1100 

LDA 

KCOUNT 

1110 

CMP 

#4 

1120 

BCC 

K4 

1130 

JMP 

NCOPY 

1140 

K4 CMP 

#2 

1150 

BNE 

TWODIG 

1160 

LDA 

INBUF 

1170 

SEC 


1180 

SBC 

#$30 

1190 

JMP 

STNUM 

1200 

TWODIG LDA INBUF 

1210 

SEC 


1220 

SBC 

#$30 

1230 

ASL 

A 

1240 

STA 

NUMBER 

1250 

ASL 

A 

1260 

ASL 

A 

1270 

CLC 


1280 

ADC 

NUMBER 

1290 

STA 

NUMBER 

1300 

LDA 

INBUF+1 

1310 

SEC 



EXIT 

SAVED REG 
SET IT NORMAL 

"D" FOR DOUBLE DENSITY 

SHOW DD 

; $171 SECTORS 


; $5A0 SECTORS 


; $B40 SECTORS 

PRINT CHAR 
LESS THAN 0? 
MORE THAN 9 
RETURN? 

X 

RETURN? 


; ASCI I TO HEX 


1330 CLC 

1340 ADC NUMBER 

1350 STNUM STA NUMBER 

1360 STA TNUM 

1370 SRCDRV LDX #MESS3&255 

1380 LDY #MESS3/256 

1390 JSR PUTLIN ; SOURCE DRIVE? 

1400 K2 JSR GETKEY 

1410 LDA ATACHR 

1420 CMP #$31 ;LESS THAN 1? 

1430 BCC K2 

1440 CMP #$35 ; MORE THAN 4? 

1450 BCS K2 

1460 SEC 

1470 SBC #$30 

1480 STA SDRIVE 

1490 JSR MYOUT 

1500 DESDRV LDX #MESS4&255 

1510 LDY #MESS4/256 

1520 JSR PUTLIN ; DESTIN DRIVE? 

1530 K3 JSR GETKEY 

1540 LDA ATACHR 

1550 CMP #$31 ;LESS THAN 1? 

1560 BCC K3 

1570 CMP #$35 ;MORE THAN 4? 

1580 BCS K3 

1590 SEC 

1600 SBC #$30 

1610 STA DDRIVE 

1620 JSR MYOUT 

1630 VERIFY LDX #MESS7&255 

1640 LDY #MESS7/256 

1650 JSR PUTLIN ; VERIFY DISK? 

1660 JSR GETKEY 

1670 LDA #$50 

1680 STA WRTC ; NON VERIFY 

1690 LDA ATACHR 

1700 CMP #$59 ; Y 

1710 BNE VER1 

1720 LDA #$57 

1730 STA WRTC 

1740 VER1 JSR MYOUT 

1750 FORMAT LDX #MESS5&255 

1760 LDY #MESS5/256 

1770 JSR PUTLIN ; FORMAT DISK? 

1780 JSR GETKEY 

1790 LDA ATACHR 

1800 STA FFLAG 

1810 JSR MYOUT 

1820 MAIN JMP SRCMSG ; GO WAIT FOR START 
1830 RSRC LDA #$40 

1840 STA BUSCMD 

1841 JSR SETUP 

1850 JSR READ 

1860 JMP DSTMSG 

1870 WLOOP JSR FMTDSK 
1880 WRT LDA #$80 

1890 STA BUSCMD 

1891 JSR SETUP 

1900 JSR WRITE 

1910 DEC TNUM ; NUMBER OF COPIES 

1920 LDA TNUM ; IN PASS 

1930 CMP #0 

1940 BNE DSTMSG 

1950 STA FFLAG ; TURN OFF FORMAT FLAG 

1 Q£n T HA \TT TMD T7T} • m? r P TDT7 A DV t?AD XTT7 Vrp 


1970 

STA 

TNUM 

; PASS 

1980 

JSR 

TDONE 

;SEE IF FINISHED 

1990 

SRCMSG 

JSR MSG6 


2000 

JSR 

BEGIN 


2010 

JMP 

RSRC 

; GO READ MORE SECTORS 

2020 

DSTMSG , 

JSR MSG8 


2030 

JSR 

BEGIN 


2040 

JMP 

WLOOP 

; GO WRITE NEXT DISK 

2050 

BEGIN LDA $D01F 


2060 

CMP 

#6 

; IS START PUSHED 

2070 

BNE 

BEGIN 

;NO. GOTO BEGIN 

2080 

RTS 



2090 

FMTDSK ] 

LDA FFLAG 

; FORMAT FLAG 

2100 

CMP 

#$59 

. tty" 

2110 

BNE 

CONT 

; NO. GOTO CONT 

2120 

LDA 

#$80 

; TIMEOUT 120 SEC. 

2130 

STA 

DTIMLO 


2140 

LDA 

DDRIVE 


2150 

STA 

DUN IT 


2160 

LDA 

#$21 

; FORMAT 

2170 

STA 

DCOMND 


2180 

JSR 

GETRDY 


2190 

LDA 

#$40 


2200 

STA 

DSTATS 


2210 

STA 

DBUFLO 


2220 

LDA 

#$80 


2230 

STA 

DBUFHI 

; FOR STATUS 

2240 

JSR 

SIOV 

; GO FORMAT DISK 

2250 

BMI 

FMTDSK 

; TRY AGAIN IF BAD 

2260 

LDA 

#TBUFHI 


2270 

STA 

DBUFHI 


2280 

CONT RTS 


2290 

READ LDA SDRIVE 

; SOURCE DRIVE 

2300 

STA 

DUN IT 


2310 

LDA 

#$52 

;read command 

2320 

STA 

DCOMND 


2330 

LDA 

SECTLO 

; STORE IN TEMP SO WE 

2340 

STA 

TEMPI 

;know where to write 

2350 

STA 

DAUX1 

; AND GET READY 

2360 

LDA 

SECTHI 

;FOR I/O CALL 

2370 

STA 

TEMP2 


2380 

STA 

DAUX2 

; SECTOR TO READ 

2390 

JSR 

GETRDY 


2400 

LDA 

#TBUFLO 


2410 

STA 

DBUFLO 


2420 

LDA 

#TBUFHI 


2430 

STA 

DBUFHI 

; BUFFER POINTERS 

2440 

CONT2 JSR SIOV 


2450 

JSR 

INCSD 


2460 

BCC 

CONT 2 


2470 

RTS 



2480 

INCSD CLC 

; INCREMENT SECTOR 

2490 

LDA 

SECTLO 

; AND BUFFER PIONTERS 

2500 

ADC 

#1 


2510 

STA 

SECTLO 


2520 

STA 

DAUX1 


2530 

LDA 

SECTHI 


2540 

ADC 

#0 


2550 

STA 

SECTHI 


2560 

STA 

DAUX2 


2570 

CMP 

SRANGE+ 1 


2580 

BNE 

CONTI 


2590 

LDA 

SECTLO 


2600 

CMP 

SRANGE 


2610 

BNE 

CONTI 
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2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

oo on 


STA $D301 
LDA #$90 
STA BKTEST 
SEC 
RTS 

CONTI JSR GETRDY 
RTS 

WRITE LDA DDRIVE 


STA 

DUN IT 

LDA 

WRTC 

STA 

DCOMND 

LDA 

#10 

STA 

$4D 

STA 

DTIMLO 

LDA 

TEMPI 

STA 

SECTLO 

STA 

DAUX1 

LDA 

TEMP2 

STA 

SECTHI 

STA 

DAUX2 

JSR 

GETRDY 

LDA 

#TBUFLO 

STA 

DBUFLO 

LDA 

#TBUFHI 

STA 

DBUFHI 

CONT3 JSR SIOV 

JSR 

INCSD 

BCC 

CONT3 

RTS 

GETRDY LDA #$31 

STA 

DDEVIC 

LDA 

BUSCMD 

STA 

DSTATS 

LDA 

DENFLG 

BEQ 

SINGLE 

LDA 

DCOMND 

CMP 

#$21 

BEQ 

B256 

LDA 

SECTLO 

CMP 

#4 

BCS 

B256 

LDA 

SECTHI 

BNE 

B256 

SINGLE LDA #0 

STA 

DBYTHI 

LDA 

#$80 

STA 

DBYTLO 

CLC 

LDA 

DBUFLO 

ADC 

#$80 

STA 

DBUFLO 

LDA 

DBUFHI 

ADC 

#0 

STA 

DBUFHI 

JMP 

RDT 

B256 LDA #0 

STA 

DBYTLO 

LDA 

#1 

STA 

DBYTHI 

CLC 

LDA 

DBUFHI 

ADC 

#1 

STA 

DBUFHI 

RDT LDA 

DBUFHI 

CMP 

#$7F 

d nr* 

DTIT/I 


RAM BANK AND 
SETUP TEST BYTE 
FOR 1ST RAM BANKS 
SET CARRY WHEN DONE 


; GET READY 
; TO WRITE 
; WRITE COMMAND 


JATRACT FLAG 


; DON’T DELETE THIS DUMMY 
;AT TOP OF BANK? 

• XT/'A 


3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3405 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

107 n 


CLC 


LDA 

$D301 

ADC 

#4 

CMP 

BKTEST 

BCC 

RDT3 

CLC 


ADC 

#$10 

STA 

$D30 1 

CLC 


LDA 

#$20 

ADC 

BKTEST 

STA 

BKTEST 

ADC 

#$20 

BCC 

RDT5 

LDA 

D301 

STA 

$D301 


GO TO ANOTHER BANK 
ANY FIRST BANKS LEFT 
YES 

SET UP NEXT SET OF BANKS 


SET UP NEXT 4 BANKS 


; MAKE SURE WE STOP AFTER CF BANK 


; RESET BUFFERS FOR 
; XTRA BANKS 


MESS3 

MESS4 

MESS7 

MESS5 

MESS6 

MESS8 


"HOW MANY COPIES? (X TO EXIT)",$9B 

"SOURCE DRIVE?", $9B 

"DESTINATION DRIVE?", $9B 

"VERIFY WRITES? (Y OR N)",$9B 

"FORMAT DESTINATION (Y or N)?",$9B 

" } ^INSERT SOURCE DISK, PUSH STARTS " , $9B 

"JINSERT DESTINATION DISK, PUSH STARTy^SB 


; NO BANKS LEFT 
; RESET TO NORMAL 

RDT4 RTS 
RDT3 STA $D30 1 
RDT5 LDA #0 

STA DBUFLO 
LDA #$40 
STA DBUFHI 
CLC 
RTS 

MESS2 .BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

MSG6 LDX #MESS6&255 
LDY #MESS6/256 
JMP PUTLIN ; SOURCE DISK 
MSG8 LDX #MESS8&255 
LDY #MESS8/256 
JMP PUTLIN ;NEXT DISK 
TDONE LDA SECTLO 
CMP SRANGE 
BNE TRTS 
LDA SECTHI 
CMP SRANGE+ 1 
BNE PRTS 
LDA D30 1 
STA $D301 
PLA 
PLA 

JMP START 
TRTS RTS 

MYOUT LDA ATACHR 

OUTCH JMP ( OUTCH1 ) ; TO OS TO PRINT CHARACTER 

GETKEY JMP (GETCH) ; GO TO OS AND GET KEY 
INIT LDA $D30 1 


RESTORE MAP REG 
CLEAN UP STACK 

BEFORE JMP OUT OF SUBROUTINE 
RESTART 


STA D30 1 
LDA #10 
STA DTIMLO 
LDA KBDHND+5 
STA GETCH+1 
LDA KBDHND+4 
CLC 

ADC #1 
STA GETCH 
BCC SOUTCH 
INC GETCH+1 


; BANK MAP 
; SAVE IT FOR EXIT 


SET DEVICE TIMEOUT 

;SET UP FOR CALL TO GET KEYBOARD CHARACTER 


; VIA JMP (GETCH) 


;FOR SCREWED UP VECTOR TABLE 
;IF WE CROSS PAGE BOUNDARY 


; ADD 1 TO HIGH BIT 
SOUTCH LDA DISPLA+7 ; SAME AS ABOVE TO PRINT CHR. 
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3980 LDA DISPLA+6 

3990 CLC 

4000 ADC #1 

4010 STA OUTCH1 

4020 BCC GOON 

4030 INC OUTCH1+1 

4040 GOON RTS 

4050 MESS 1 .BYTE "JCOPY256 V1.2(C)1991 NEWELL INDUSTRIES ", $9B 

4060 PUTLIN TXA ; PUT LINE ON SCREEN 

4070 LDX #0 

4080 STA $0344, X 

4090 TYA 

4100 STA $0345, X 

4110 LDA #9 

4120 STA $0342, X 

4130 LDA #$FF 

4140 STA $0348, X 

4150 END JMP CIOV 

4160 .END 


